home *** CD-ROM | disk | FTP | other *** search
/ Sprite 1984 - 1993 / Sprite 1984 - 1993.iso / lib / perl / signal.ph < prev    next >
Encoding:
Text File  |  1991-08-12  |  1.7 KB  |  62 lines
  1. if (!defined &_SIGNAL) {
  2.     eval 'sub _SIGNAL {1;}';
  3.     require 'cfuncproto.ph';
  4.     if (!defined &NSIG) {
  5.     eval 'sub NSIG {32;}';
  6.     }
  7.     eval 'sub SIGHUP {1;}';
  8.     eval 'sub SIGINT {2;}';
  9.     eval 'sub SIGQUIT {3;}';
  10.     eval 'sub SIGILL {4;}';
  11.     eval 'sub SIGTRAP {5;}';
  12.     eval 'sub SIGIOT {6;}';
  13.     eval 'sub SIGABRT { &SIGIOT;}';
  14.     eval 'sub SIGEMT {7;}';
  15.     eval 'sub SIGFPE {8;}';
  16.     eval 'sub SIGKILL {9;}';
  17.     eval 'sub SIGBUS {10;}';
  18.     eval 'sub SIGSEGV {11;}';
  19.     eval 'sub SIGSYS {12;}';
  20.     eval 'sub SIGPIPE {13;}';
  21.     eval 'sub SIGALRM {14;}';
  22.     eval 'sub SIGTERM {15;}';
  23.     eval 'sub SIGURG {16;}';
  24.     eval 'sub SIGSTOP {17;}';
  25.     eval 'sub SIGTSTP {18;}';
  26.     eval 'sub SIGCONT {19;}';
  27.     eval 'sub SIGCHLD {20;}';
  28.     eval 'sub SIGCLD { &SIGCHLD;}';
  29.     eval 'sub SIGTTIN {21;}';
  30.     eval 'sub SIGTTOU {22;}';
  31.     eval 'sub SIGIO {23;}';
  32.     eval 'sub SIGXCPU {24;}';
  33.     eval 'sub SIGXFSZ {25;}';
  34.     eval 'sub SIGVTALRM {26;}';
  35.     eval 'sub SIGPROF {27;}';
  36.     eval 'sub SIGWINCH {28;}';
  37.     eval 'sub SIGUSR1 {30;}';
  38.     eval 'sub SIGUSR2 {31;}';
  39.     eval 'sub SIGDEBUG {3;}';
  40.     eval 'sub SIGMIG {10;}';
  41.     eval 'sub SIGMIGHOME {29;}';
  42.     if (!defined &KERNEL) {
  43.     }
  44.     eval 'sub SV_ONSTACK {0x0001;}';
  45.     eval 'sub SV_INTERRUPT {0x0002;}';
  46.     eval 'sub sv_onstack { &sv_flags;}';
  47.     if (0) {
  48.     }
  49.     eval 'sub BADSIG {( &void (*)())-1;}';
  50.     eval 'sub SIG_DFL {( &void (*)())0;}';
  51.     eval 'sub SIG_IGN {( &void (*)())1;}';
  52.     if (defined &KERNEL) {
  53.     eval 'sub SIG_CATCH {( &void (*)())2;}';
  54.     eval 'sub SIG_HOLD {( &void (*)())3;}';
  55.     }
  56.     eval 'sub sigmask {
  57.         local($m) = @_;
  58.         eval "(1 << (($m)-1))";
  59.     }';
  60. }
  61. 1;
  62.